Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d6/tallyho.arc/TEMP.FCP

Text File | 1990-09-23 | 542b | 40 lines

@DSPLY "Temperature Conversion "
@DSPLY "Program."
@DSPLY "Enter a 1 to convert"
@DSPLY "Fahrenheit to Celsius;"
@DSPLY "enter a 0 to convert"
@DSPLY "Celsius to Fahrenheit."
@GET "1=Fahrenheit  0=Celsius"
@RIN (1)
@GET "Temperature?"
@RIN (2)
@ROUT (1)
@IF =
0=
@NEW STEP
@GOTO (7)
=
@NEW STEP
@ROUT (2)
-32=
@NEW STEP
*5=
@NEW STEP
/9=
@NEW STEP
@DSPLY "Temperature in Celcius"
@GOTO (11)
=
@NEW STEP
@ROUT (2)
*9=
@NEW STEP
/5=
@NEW STEP
+32=
@NEW STEP
@DSPLY "Temp in Fahrenheit"
=
@NEW STEP
@STOP